home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Utilities / amicas / progs / asc / sierpins.txt < prev    next >
Encoding:
Text File  |  1998-03-04  |  156 b   |  19 lines
  1. Cls
  2. ViewWindow 1,127,0,1,63,0
  3. Lbl 0
  4. Plot A,B
  5. 3Ran#->C
  6. C<1=>Goto 1
  7. C>2=>Goto 2
  8. 5A->A
  9. 5B->B
  10. Goto 0
  11. Lbl 1
  12. 5A+32->A
  13. 5B+32->B
  14. Goto 0
  15. Lbl 2
  16. 5A+64->A
  17. 5B->B
  18. Goto 0
  19.